home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 January / macformat-020.iso / Shareware City / Developers / GMS1.0b2 folder / GMSIntf.p < prev    next >
Encoding:
Text File  |  1994-08-16  |  980 b   |  26 lines  |  [TEXT/PJMM]
  1. UNIT GMS;
  2. INTERFACE
  3.  
  4. { Call this first, if it returns true, then music playing is possible }
  5.     FUNCTION GMSInit: Boolean;
  6. { Call this to temporarily stop playback of the current music.  Should }
  7. { be called on suspend events }
  8.     PROCEDURE GMSPause;
  9. { Call this to resume playback of the current music.  Call on resume }
  10. { events }
  11.     PROCEDURE GMSResume;
  12. { This will clean up everything, release components, etc... }
  13.     PROCEDURE GMSQuit;
  14. { This is the actual routine to play a 'Musi' resource generated from }
  15. { Midi2Musi.  It will lock it down for you - don't unlock or release }
  16. { the resource until you are done playing.  If you want to stop playing }
  17. { the current music and not play anything, pass NIL in }
  18.     PROCEDURE GMSPlay (h: Handle);
  19. { Call this routine during your idle proc - it checks to see if the }
  20. { music is done playing, and if so, causes it to repeat (don't call }
  21. { this if you don't want your background music to repeat) }
  22.     PROCEDURE GMSIdle;
  23.  
  24. IMPLEMENTATION
  25.  
  26. END.